home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / demosrc / timesrc / l0p2.m < prev    next >
Encoding:
Text File  |  1994-02-17  |  1.5 KB  |  63 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. d2counter       db      0
  6.  
  7. d2palxtbl       label   byte
  8. temp=0
  9. rept 64
  10.                 db      temp+80h
  11. temp=temp+1
  12. endm
  13. rept 64
  14. temp=temp-1
  15.                 db      temp+80h
  16. endm
  17.  
  18. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  19. ; CODE
  20. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  21.  
  22. ;═════════════════════════════════════════════════════════════════════════════
  23. p20:                                    ; crossing lines, fill whole screen
  24.         mov ebp,_bufptr
  25.         mov esi,256
  26.         movzx edx,d2counter
  27.         mov bl,d2palxtbl[edx]
  28.         mov bh,bl
  29.         shrd eax,ebx,16
  30.         mov ax,bx
  31.         lea edi,[ebp+edx*2]
  32.         call p20r0
  33.         xor ebx,ebx
  34.         mov bh,dl
  35.         lea edi,[ebp+ebx*2]
  36.         mov ecx,64
  37.         rep stosd
  38.         xor bh,7fh
  39.         lea edi,[ebp+ebx*2+256]
  40.         mov cl,64
  41.         rep stosd
  42.         xor dl,7fh
  43.         lea edi,[ebp+edx*2+1]
  44.         call p20r0
  45.         xor dl,7fh
  46.         inc dl
  47.         and dl,7fh
  48.         mov d2counter,dl
  49.         jz setnext
  50.         ret
  51. ;-----------------------------------------------------------------------------
  52. p20r0:
  53.         mov cl,8
  54. p20r0l0:
  55. rept 20h
  56.         mov [edi],al
  57.         add edi,esi
  58. endm
  59.         dec cl
  60.         jnz p20r0l0
  61.         ret
  62.  
  63.